home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / misc / TSBVector.lha / Sources / vektorbobs(forrsi).S < prev    next >
Text File  |  1995-06-13  |  1KB  |  42 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorballobjekt-Sourcecodes for including an
  3. ; Objekt made with THE SPECIAL BROTHERS Vectordesigner....
  4. ;-----------------------------------------------------------------------
  5. ; Normales Vektorballsobjekt 
  6. ;-----------------------------------------------------------------------
  7. ;(Seka-format)
  8. ;Benutzung:
  9. ;a (return)
  10. ;ri (return)
  11. ;name.s (return)
  12. ;ballpoints (return)
  13. ;ballart (return)
  14. ;wi (return)
  15. ;name (return)
  16. ;start (return)
  17. ;end (return)
  18. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  19. ;------------------------------------------------------------------------
  20. start:
  21. dc.l    "BALL"    ;Kennung fuer Ballsobjekt
  22.  
  23. ballsob1:
  24. dc.l ballpoints-ballsob1    ;offset fuer Punktstruktur
  25. dc.l ballart-ballsob1        ;offset fuer Ballartstruktur
  26. dc.w 650            ;zoom = 650
  27. dc.w 0,$500,$710,$930,$a50,$d90,$fd0,$000,$5,$6,$118,$33a,$55b,$88c,$ccd
  28. dc.w $fff    ;16 farben
  29. dc.l 0        ;kein Initroutine
  30. dc.l 0        ;kein Zusatzroutine
  31.  
  32.  
  33. ballpoints:    ;Punktstruktur
  34.  
  35. blk.b 1024,0
  36.  
  37. ballart:    ;Struktur fuer Ballarten
  38.  
  39. blk.b 1024,0
  40.  
  41. end:
  42.